Celestin Apprentice 4/Apprentice-Release4.iso/Demos/AppMaker 2.0b3/Demo AppMaker 1.5/Demo AppMaker™/Demo AppMaker™.rsrc/TmpP_103_Window

Text File | 1992-04-08 | 3.7 KB | 205 lines

{ %filename% }
{ Created %date% %time% by AppMaker }

Unit %unitname%;
Interface

Uses
    %if lang = MPW%
        Types,
        Quickdraw,
        Controls,
        Dialogs,
        Events,
        Lists,
        Menus,
        Resources,
        StandardFile,
        TextEdit,
        ToolUtils,

    %end if%
    Globals,
    ResourceDefs,
    Miscellany,
    Scrolling,
    WindowAids,
    %appName%Data;

{----------}
Procedure Open%WindName%%    %(fName:        Str255;
                             vRefNum:    integer;
                             fRefNum:    integer);
Procedure Close%WindName%;
Procedure Control%WindName% (whichControl:    ControlHandle;
                             whichPart:        integer;
                             where:            Point);
Procedure MouseIn%WindName%    (where:        Point;
                             modifiers:    integer);
Procedure TypeIn%WindName%  (ch:        char);
Procedure Update%WindName%;
Procedure Activate%WindName% (activate:    boolean);
Procedure Resize%WindName%;
Procedure Scroll%WindName%%    %(newValue:    integer;
                             oldValue:    integer);

{----------}
Implementation

%if lang = MPW%
    {$D+}
    {$R+}
    {$OV+}
    {$S %unitname%}

%end if%
const
    filler            = 0;
    %for each item gen itemNr%

%for each item gen winAuxiliary%
{----------}
Procedure Open%WindName%%    %(fName:        Str255;
                             vRefNum:    integer;
                             fRefNum:    integer);
var
    newWindow:        WindowPtr;
    bounds:            Rect;

Begin
    newWindow := GetWindow (%WindName%ID);
    if fName <> '' then begin
        SetWTitle (newWindow, fName);
    end;
    SetPort (newWindow);
    SetNewInfo (newWindow);
    with cur^ do begin
        %if has vScroll%
            vScroll := GetNewControl (%cntlID%, newWindow);
        %else%
            vScroll := nil;
        %end if%
        %if has hScroll%
            hScroll := GetNewControl (%cntlID%, newWindow);
        %else%
            hScroll := nil;
        %end if%
        fileNum    := fRefNum;
        volNum    := vRefNum;
        dirty    := false;
        filename := NewString (fName);
        windowKind := W%WindName%;
        WindowPeek (curWindow)^.windowKind := userKind + ord (W%WindName%);
        witlHandle := GetResource ('Witl', %WindName%ID);
        wictHandle := GetResource ('Wict', %WindName%ID);
        %push firstEdit%

        %for each item gen create%

        %if not firstEdit = %
            text    := %firstEdit%;
        %else%
            text    := nil;
        %endif%
        %pop firstEdit%

    end; {with}

    %if firstWindow%
        ShowWindow (newWindow);
    %endif%

End; {Open%WindName%}

{----------}
Procedure Close%WindName%;
Begin
    with cur^ do begin
        %for each item gen dispose%

        DisposHandle (Handle (filename));
    end; {with}
    DiscardInfo (curWindow);
End; {Close%WindName%}

{----------}
Procedure Control%WindName%%    %(whichControl:    ControlHandle;
                                 whichPart:        integer;
                                 where:            Point);
var
    bounds:            Rect;
Begin
    with cur^ do begin
        %for each item gen track%

    end; {with}
End; {Control%WindName%}

{----------}
Procedure MouseIn%WindName%%    %(where:        Point;
                                 modifiers:    integer);
var
    bounds:            Rect;
Begin
    with cur^ do begin
        %for each item gen mousein%

    end; {with}
End; {MouseIn%WindName%}

{----------}
Procedure TypeIn%WindName%     (ch:        char);
Begin
    with cur^ do begin
        if text = nil then begin
            SysBeep (1);
        end else begin
            TEKey (ch, text);
            dirty := true;
        end;
    end; {with}
End; {TypeIn%WindName%}

{----------}
Procedure Update%WindName%;
var
    bounds:            Rect;
Begin
    with cur^ do begin
        %for each item gen update%

        %if has growBox%
            DrawClippedGrow (-15, -15);
        %end if%
    end; {with}
End; {Update%WindName%}

{----------}
Procedure Activate%WindName%    (activate:        boolean);
Begin
    with cur^ do begin
        %for each item gen activate%

        %if has growBox%
            DrawClippedGrow (-15, -15);
        %end if%
    end; {with}
End; {Activate%WindName%}

{----------}
Procedure Resize%WindName%;
Begin
    { application-specific code to resize items in window }
    with cur^ do begin
    end; {with}
End; {Resize%WindName%}

{----------}
Procedure Scroll%WindName%%     %(newValue:        integer;
                              oldValue:        integer);
Begin
    { application-specific code to scroll window }
End; {Scroll%WindName%}

End. {%unitname%}